home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / estenw_1 / options.frm < prev    next >
Text File  |  1998-04-25  |  2KB  |  86 lines
  1. VERSION 5.00
  2. Begin VB.Form Options 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   8340
  7.    ClientLeft      =   2130
  8.    ClientTop       =   2310
  9.    ClientWidth     =   12000
  10.    ForeColor       =   &H00000000&
  11.    LinkTopic       =   "Form2"
  12.    PaletteMode     =   1  'UseZOrder
  13.    Picture         =   "Options.frx":0000
  14.    ScaleHeight     =   8340
  15.    ScaleWidth      =   12000
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Visible         =   0   'False
  19.    WindowState     =   2  'Maximized
  20.    Begin VB.CommandButton okbutton 
  21.       Caption         =   "OKButton"
  22.       Height          =   540
  23.       Left            =   720
  24.       TabIndex        =   1
  25.       Top             =   8085
  26.       Width           =   1215
  27.    End
  28.    Begin VB.CommandButton CancelButton 
  29.       Caption         =   "Cancel"
  30.       Height          =   540
  31.       Left            =   10320
  32.       TabIndex        =   0
  33.       Top             =   8085
  34.       Width           =   1215
  35.    End
  36. End
  37. Attribute VB_Name = "Options"
  38. Attribute VB_GlobalNameSpace = False
  39. Attribute VB_Creatable = False
  40. Attribute VB_PredeclaredId = True
  41. Attribute VB_Exposed = False
  42.  
  43.  
  44.  
  45.  
  46. Private Sub Command2_Click()
  47. Form3.Visible = True
  48. End Sub
  49.  
  50. Private Sub CancelButton_Click()
  51. Menu.Visible = True
  52. End Sub
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60. Private Sub Command1_Click()
  61.  
  62. End Sub
  63.  
  64.  
  65. Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
  66.  
  67. End Sub
  68.  
  69.  
  70. Private Sub Label1_Click()
  71.  
  72. End Sub
  73.  
  74.  
  75. Private Sub OKButton_Click()
  76.  Unload Options
  77.  Menu.Visible = True
  78. End Sub
  79.  
  80.  
  81. Private Sub Text1_Change()
  82.  
  83. End Sub
  84.  
  85.  
  86.